home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / INERTIA.bas < prev    next >
BASIC Source File  |  2012-02-16  |  818b  |  22 lines
  1. 0  TEXT : HOME 
  2. 100  PRINT : PRINT "INERTIA is the resistance a body has    to any outside force that tries to :": PRINT 
  3. 101  PRINT 
  4. 102  GOSUB 520
  5. 110  PRINT "     Start it into motion": PRINT 
  6. 112  GOSUB 510
  7. 120  PRINT "        Slow its motion": PRINT 
  8. 122  GOSUB 510
  9. 130  PRINT "           Speed up its motion": PRINT 
  10. 132  GOSUB 510
  11. 140  PRINT "              Curve its motion": PRINT 
  12. 142  GOSUB 510
  13. 150  PRINT : PRINT "In other words, to change its motion    or state of rest in any way."
  14. 152  GOSUB 515
  15. 160  PRINT : PRINT : PRINT "    EVERY body possesses INERTIA."
  16. 170  PRINT : PRINT : GOSUB 515
  17. 180  PRINT "   Press any key for an example."
  18. 190  GET KY$: PRINT  CHR$(4);"rUN motion"
  19. 500  END 
  20. 510  FOR I = 0 TO 2000: NEXT : RETURN 
  21. 515  FOR I = 0 TO 3000: NEXT : RETURN 
  22. 520  FOR I = 0 TO 4000: NEXT : RETURN